;;;;; -*- mode: lisp; syntax: common-lisp; package: cl-user; base: 10 -*- ;;;;
(DEFUN GLR-GRAMMARF-1935 (X1) (LET ((X (LIST (LIST (LIST (QUOTE X1) X1))))) (AND (AND (P=P (X0) (X1))) (OR (GETVALUE* X (QUOTE (X0))) T))))
(DEFUN GLR-GRAMMARF-1937 (X1) (LET ((X (LIST (LIST (LIST (QUOTE X1) X1))))) (AND (AND (P=A (X0 MOOD) IMPERATIVE) (P=P (X0) (X1))) (OR (GETVALUE* X (QUOTE (X0))) T))))
(DEFUN GLR-GRAMMARF-1942 (X1 X2) (LET ((X (LIST (LIST (LIST (QUOTE X2) X2) (LIST (QUOTE X1) X1))))) (AND (AND (P=A (X0 MOOD) DECLARATIVE) (P=P (X0 SUBJ) (X1)) (P=P (X1 NUMBER) (X2 NUMBER)) (P=P (X0) (X2))) (OR (GETVALUE* X (QUOTE (X0))) T))))
(DEFUN GLR-GRAMMARF-1947 (X1 X2) (LET ((X (LIST (LIST (LIST (QUOTE X1) X1) (LIST (QUOTE X2) X2))))) (AND (AND (P=P (X0 PPADJUNCT) (X2)) (P=P (X0) (X1)) (P=L (X0 LEGAL) (IF (LICENSE-ATTACHMENT (X1) (X2)) (QUOTE +) (QUOTE -))) (P=CA (X0 LEGAL) +) (P=R (X0 LEGAL))) (OR (GETVALUE* X (QUOTE (X0))) T))))
(DEFUN GLR-GRAMMARF-1950 (X1 X2) (LET ((X (LIST (LIST (LIST (QUOTE X2) X2) (LIST (QUOTE X1) X1))))) (AND (AND (P=P (X0 DET) (X1)) (P=P (X0) (X2))) (OR (GETVALUE* X (QUOTE (X0))) T))))
(DEFUN GLR-GRAMMARF-1952 (X1) (LET ((X (LIST (LIST (LIST (QUOTE X1) X1))))) (AND (AND (P=P (X0) (X1))) (OR (GETVALUE* X (QUOTE (X0))) T))))
(DEFUN GLR-GRAMMARF-1957 (X1 X2) (LET ((X (LIST (LIST (LIST (QUOTE X1) X1) (LIST (QUOTE X2) X2))))) (AND (AND (P=P (X0 PPADJUNCT) (X2)) (P=P (X0) (X1)) (P=L (X0 LEGAL) (IF (LICENSE-ATTACHMENT (X1) (X2)) (QUOTE +) (QUOTE -))) (P=CA (X0 LEGAL) +) (P=R (X0 LEGAL))) (OR (GETVALUE* X (QUOTE (X0))) T))))
(DEFUN GLR-GRAMMARF-1961 (X1 X2) (LET ((X (LIST (LIST (LIST (QUOTE X2) X2) (LIST (QUOTE X1) X1))))) (AND (AND (P=CA (X1 VALENCY) TRANS) (P=P (X0 OBJ) (X2)) (P=P (X0) (X1))) (OR (GETVALUE* X (QUOTE (X0))) T))))
(DEFUN GLR-GRAMMARF-1964 (X1) (LET ((X (LIST (LIST (LIST (QUOTE X1) X1))))) (AND (AND (P=CA (X1 VALENCY) INTRANS) (P=P (X0) (X1))) (OR (GETVALUE* X (QUOTE (X0))) T))))
(DEFUN GLR-GRAMMARF-1967 (X1 X2) (LET ((X (LIST (LIST (LIST (QUOTE X1) X1) (LIST (QUOTE X2) X2))))) (AND (AND (P=P (X0 OBJ) (X2)) (P=P (X0) (X1))) (OR (GETVALUE* X (QUOTE (X0))) T))))
(DEFUN GLR-GRAMMARF-1969 (X1) (LET ((X (LIST (LIST (LIST (QUOTE X1) X1))))) (AND (AND (P=L (X0) (PARSE-ENG-WORD (STRING-DOWNCASE (SYMBOL-NAME (X1 VALUE))))) (P=A (X0 CAT) N)) (OR (GETVALUE* X (QUOTE (X0))) T))))
(DEFUN GLR-GRAMMARF-1971 (X1) (LET ((X (LIST (LIST (LIST (QUOTE X1) X1))))) (AND (AND (P=L (X0) (PARSE-ENG-WORD (STRING-DOWNCASE (SYMBOL-NAME (X1 VALUE))))) (P=A (X0 CAT) V)) (OR (GETVALUE* X (QUOTE (X0))) T))))
(DEFUN GLR-GRAMMARF-1973 (X1) (LET ((X (LIST (LIST (LIST (QUOTE X1) X1))))) (AND (AND (P=L (X0) (PARSE-ENG-WORD (STRING-DOWNCASE (SYMBOL-NAME (X1 VALUE))))) (P=A (X0 CAT) DET)) (OR (GETVALUE* X (QUOTE (X0))) T))))
(DEFUN GLR-GRAMMARF-1975 (X1) (LET ((X (LIST (LIST (LIST (QUOTE X1) X1))))) (AND (AND (P=L (X0) (PARSE-ENG-WORD (STRING-DOWNCASE (SYMBOL-NAME (X1 VALUE))))) (P=A (X0 CAT) P)) (OR (GETVALUE* X (QUOTE (X0))) T))))
